<%

Function verificar_foto(id, pasta, extencao)

		DIM endereco, rs
		
		endereco = pasta&id&"."&extencao
		
		str = "Select data_foto FROM usuarios where not data_foto is null and id="&id
		Set rs = conexao_geral.Execute(str)			

		If not rs.eof then		
		
			verificar_foto = endereco&"?data="&rs("data_foto")
			
		Else
		
			verificar_foto = pasta&"0."&extencao
			
		End If

End Function
%>